home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #11 / CD 11 (Black) - 2001.iso / Fruity / GUSHERS.DXR / 00006_gusherManager.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  2.1 KB  |  69 lines
  1. property pGusherCount, pGusherList, pFGusherMember, pColorLookUp, pFChan, pCurrChan, pNumOfChans
  2. global gPuppetList, gBlank, gFirstTime
  3.  
  4. on new me
  5.   set pGusherCount to 0
  6.   set pGusherList to [:]
  7.   set pFGusherMember to 41
  8.   set pColorLookUp to [pFGusherMember, pFGusherMember + 5, pFGusherMember + 10, pFGusherMember + 15]
  9.   set pFChan to 10
  10.   set pCurrChan to pFChan - 1
  11.   set pNumOfChans to random(4) + 6
  12.   sort(pGusherList)
  13.   return me
  14. end
  15.  
  16. on ClickOnBag me
  17.   if pCurrChan >= (pFChan + pNumOfChans - 1) then
  18.     puppetSound(1, 0)
  19.     puppetSound(1, "LetGoGusher")
  20.     updateStage()
  21.     repeat while soundBusy(1)
  22.     end repeat
  23.     exit
  24.   end if
  25.   puppetSnd(1, "GrabGusher")
  26.   set chan to the clickOn
  27.   set the memberNum of sprite chan to the memberNum of sprite chan + 1
  28.   set pCurrChan to pCurrChan + 1
  29.   set pGusherCount to pGusherCount + 1
  30.   set gusherMem to getAt(pColorLookUp, random(4))
  31.   set the castNum of sprite pCurrChan to gusherMem
  32.   updateStage()
  33.   mDrag(me, pCurrChan, 0)
  34.   set the memberNum of sprite chan to the memberNum of sprite chan - 1
  35. end
  36.  
  37. on mDrag me, chan, deleteFlag
  38.   if deleteFlag then
  39.     set listSize to count(pGusherList)
  40.     repeat with index = 1 to listSize
  41.       if getAt(getAt(pGusherList, index), 2) = chan then
  42.         deleteAt(pGusherList, index)
  43.         exit repeat
  44.       end if
  45.     end repeat
  46.   end if
  47.   set lastLoc to the loc of sprite chan
  48.   repeat while the mouseDown
  49.     set lastLoc to the loc of sprite chan
  50.     set the locH of sprite chan to constrainH(1, the mouseH)
  51.     set the locV of sprite chan to constrainV(1, the mouseV)
  52.     updateScreen()
  53.     updateStage()
  54.   end repeat
  55.   puppetSound(1, 0)
  56.   puppetSound("LetGoGusher")
  57.   updateStage()
  58.   set slope to the loc of sprite chan - lastLoc
  59.   set finalH to (10 * the locH of slope) + the locH of sprite chan
  60.   set finalV to (10 * the locV of slope) + the locV of sprite chan
  61.   slide(chan, finalH, finalV, 20, 2)
  62.   mUpdateList(me, chan, the castNum of sprite chan)
  63. end
  64.  
  65. on mUpdateList me, chan
  66.   addProp(pGusherList, the locH of sprite chan, [the locV of sprite chan, chan, the castNum of sprite chan])
  67.   sort(pGusherList)
  68. end
  69.